home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
csinke6.dir
/
00421_Script_éËÇè„ÇÇÈ
< prev
next >
Wrap
Text File
|
1995-11-13
|
962b
|
43 lines
global Plus
on HandUpT T1,T2
set HanUpT = [1, 2, 3, 2, 1]
preLoadCast 1 + Plus, 3 + Plus
repeat with i in HanUpT
set the castNum of sprite 40 = i + Plus
updateStage
wait T1
end repeat
wait T2
set the castNum of sprite 40 = 1 + Plus
updateStage
unLoadCast 1 + Plus, 3 + Plus
end
on HandUpH T1,T2
set HanUpH = [41, 42, 43, 42, 41]
preLoadCast 41 + Plus, 43 + Plus
repeat with i in HanUpH
set the castNum of sprite 40 = i + Plus
updateStage
wait T1
end repeat
wait T2
set the castNum of sprite 40 = 41 + Plus
updateStage
unLoadCast 41 + Plus, 43 + Plus
end
on HandUpB T1,T2
set HanUpB = [81, 82, 83, 82, 81]
preLoadCast 81 + Plus, 83 + Plus
repeat with i in HanUpB
set the castNum of sprite 40 = i + Plus
updateStage
wait T1
end repeat
wait T2
set the castNum of sprite 40 = 81 + Plus
updateStage
unLoadCast 81 + Plus, 83 + Plus
end